   
==================
Private Sub Command1_Click()
'    
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
Command1.Enabled = False
Label1.Caption = "   "
End Sub
Private Sub Command2_Click()
'   
Winsock1.Close
Command1.Enabled = True
Label1.Caption = "  "
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'        
'     
Label4.Caption = Label2.Caption + 1 '    List1.AddItem Winsock1.LocalHostNameList2.AddItem Winsock1.LocalIPList3.AddItem Label2.CaptionLabel1.Caption = "  "
Beep
End Sub